home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Technology Seed / Mac Tech Seed May '96 / Mac Tech Seed May '96.toast / mac / Unity a3c3 / Install System Software / QuickDraw GX / QuickDraw™ GX Disk 1 / QuickDraw™ GX / QuickDraw™ GX.adf / psbt_-28343 < prev    next >
Encoding:
Text File  |  1995-08-28  |  6.1 KB  |  359 lines
  1. C/ReadRaster { currentfile pixString RstrRead pop } Bdef
  2. /pixString null def
  3. /MaxSampleInt 0 def
  4. /OldGrayTransfer null def
  5. /OldBlackTransfer null def
  6. /OldRedTransfer null def
  7. /OldGreenTransfer null def
  8. /OldBlueTransfer null def
  9. /OldCyanTransfer null def
  10. /OldMagentaTransfer null def
  11. /OldYellowTransfer null def
  12. systemdict /setundercolorremoval known {
  13. {pop 0} setundercolorremoval
  14. } if
  15. systemdict /setblackgeneration known {
  16. {pop 0} setblackgeneration
  17. } if
  18. /DoBitmap { save 
  19. 9 1 roll 
  20. /pixString exch string store 
  21. /RstrRead exch 
  22. {/readhexstring}
  23. {/readstring}
  24. ifelse
  25. load def
  26. 1 0 0 1 
  27. 6 -2 roll neg exch neg exch 
  28. ScratchMatrix astore 
  29. /ReadRaster load 
  30. 6 -1 roll dup 1 gt { 
  31. false exch 
  32. GXColorImage 
  33. } { 
  34. pop 
  35. image 
  36. } ifelse
  37. restore } Bdef
  38. /DoImageMask { save
  39. 1 index type /arraytype eq { 
  40. exch concat 
  41. 1 SetOrMode 
  42. EnsureDeviceResolution 
  43. } if
  44. 7 1 roll 
  45. /pixString exch string store 
  46. /RstrRead exch 
  47. {/readhexstring}
  48. {/readstring}
  49. ifelse
  50. load def
  51. 1 0 0 1 
  52. 6 -2 roll neg exch neg exch 
  53. ScratchMatrix astore 
  54. ImageMaskSense exch 
  55. /ReadRaster load 
  56. gsave ImageMaskColor CurrColorSet SetIndexedColor
  57. imagemask    
  58. grestore
  59. restore } Bdef
  60. /MakeBitmapStrings {
  61. /@1 Xstore 
  62. [ 
  63. @1 -65535 0 { 
  64. dup 65535 gt { 
  65. pop 65535 string 
  66. } { 
  67. string 
  68. } ifelse
  69. } for
  70. ] 
  71. exch
  72. /RstrRead exch 
  73. {/readhexstring}
  74. {/readstring}
  75. ifelse
  76. load def
  77. dup 
  78. { 
  79. currentfile exch RstrRead pop pop
  80. } forall
  81. } Bdef
  82. /StringDataIn {
  83. 2 copy get exch 1 add exch
  84. } Bdef
  85. /DrawBitmapString {
  86. 1 0 0 1 
  87. 6 -2 roll neg exch neg exch 
  88. ScratchMatrix astore 
  89. /StringDataIn load 
  90. BitmapStrings 0 
  91. 8 2 roll 
  92. 6 -1 roll dup 1 gt { 
  93. false exch 
  94. GXColorImage 
  95. } { 
  96. pop 
  97. image 
  98. } ifelse
  99. pop pop 
  100. } Bdef
  101. /Draw1bitBitmapString {
  102. shapeType /i eq CurrOrMode 0 eq and { 
  103. 1 
  104. 3 1 roll 
  105. DrawIndexedBitmapStrings    
  106. } {
  107. 1 0 0 1 
  108. 6 -2 roll neg exch neg exch 
  109. ScratchMatrix astore 
  110. ImageMaskSense exch 
  111. /StringDataIn load 
  112. BitmapStrings 0 
  113. 7 2 roll 
  114. imagemask 
  115. pop pop 
  116. } ifelse
  117. } Bdef
  118. /CreateColorSet {
  119. currentdict /PortablizeColorSetParams known {PortablizeColorSetParams} if 
  120. 5 dict dup 2 index 4 add 1 roll 
  121. begin
  122. exch 
  123. /ColorSpace Xdef 
  124. 1 index length /Size Xdef 
  125. dup /Num Xdef 
  126. array 
  127. astore 
  128. /Components Xdef 
  129. ColorSpace null eq {
  130. /SetColorOp
  131. Num 1 eq 
  132. {/setgray load def}
  133. { Num 3 eq
  134. {/GXSetRGBColor load def}
  135. {/setcmykcolor load def}
  136. ifelse
  137. }    ifelse
  138. } {
  139. /SetColorOp /setcolor load def
  140. } ifelse
  141. end
  142. } Bdef
  143. /SetIndexedColor {
  144. begin
  145. ColorSpace null ne {ColorSpace setcolorspace} if 
  146. Components {1 index get exch} forall pop 
  147. SetColorOp
  148. end
  149. } Bdef
  150. languagelevel 2 ge {
  151. /LookupProc {
  152. CurrColorSet /Components get { 
  153. 1 index dup 
  154. CurrColorSet /Size get ge {            
  155. pop pop 0 
  156. } { 
  157. get 
  158. }    ifelse
  159. exch 
  160. } forall 
  161. pop 
  162. } Bdef
  163. } if
  164. languagelevel 2 ge {
  165. /DoIndexedBitmap { save
  166. 8 1 roll 
  167. dup 0 gt {
  168. /pixString exch string store 
  169. /RstrRead exch 
  170. {/readhexstring}
  171. {/readstring} 
  172. ifelse
  173. load def
  174. } {
  175. pop pop 
  176. /pixString null store 
  177. } ifelse
  178. 1 0 0 1
  179. 6 -2 roll neg exch neg exch 
  180. ScratchMatrix astore 
  181. [
  182. /Indexed
  183. CurrColorSet begin 
  184. ColorSpace null eq { 
  185. Num 1 eq 
  186. {/DeviceGray}
  187. { Num 3 eq
  188. {/DeviceRGB} 
  189. {/DeviceCMYK} 
  190. ifelse
  191. }    ifelse
  192. } { 
  193. ColorSpace
  194. } ifelse
  195. Size 
  196. end
  197. /LookupProc load 
  198. ] setcolorspace
  199. 7 dict dup begin
  200. 5 1 roll
  201. /ImageMatrix Xdef
  202. /BitsPerComponent Xdef
  203. /Height Xdef
  204. /Width Xdef
  205. /ImageType 1 def
  206. /Decode [0 2 BitsPerComponent exp 1 sub] def
  207. pixString null ne {
  208. /DataSource /ReadRaster load def
  209. } {
  210. /DataSource /StringDataIn load def
  211. BitmapStrings 0 
  212. 3 2 roll 
  213. } ifelse
  214. end
  215. image 
  216. pixString null eq {pop pop} if
  217. restore } Bdef
  218. } if
  219. languagelevel 1 eq {
  220. /MaxSampleInt 0 store 
  221. /LookupComponent {
  222. CurrColorSet /Components get 
  223. exch get 
  224. exch MaxSampleInt mul round cvi 
  225. dup
  226. CurrColorSet /Size get ge { 
  227. pop pop 0
  228. } {
  229. get
  230. } ifelse
  231. } Bdef
  232. /DoIndexedBitmap { save
  233. 8 1 roll 
  234. dup 0 gt { 
  235. /pixString exch string store 
  236. /RstrRead exch 
  237. {/readhexstring}
  238. {/readstring} 
  239. ifelse
  240. load def
  241. 2 index 2 exch exp 1 sub /MaxSampleInt exch store 
  242. InstallColorSetTransfers 
  243. } { 
  244. pop pop 
  245. /pixString null store 
  246. } ifelse
  247. 1 0 0 1
  248. 6 -2 roll neg exch neg exch 
  249. ScratchMatrix astore 
  250. CurrColorSet /Num get dup 1 eq { 
  251. pop 
  252. pixString null ne {
  253. /ReadRaster load 
  254. } {
  255. /StringDataIn load
  256. BitmapStrings 0 7 2 roll
  257. } ifelse
  258. image
  259. } { 
  260. 3 eq { 
  261. pixString null ne {
  262. {ReadRaster dup dup} {} {} 
  263. } {
  264. {StringDataIn dup dup} {} {} BitmapStrings 0 9 2 roll
  265. } ifelse
  266. true 3 GXColorImage
  267. } { 
  268. pixString null ne {
  269. {ReadRaster dup dup dup } {} {} {}
  270. } {
  271. {StringDataIn dup dup dup} {} {} {} BitmapStrings 0 10 2 roll
  272. } ifelse
  273. true 4 GXColorImage
  274. } ifelse
  275. } ifelse
  276. pixString null eq {pop pop} if 
  277. restore } Bdef
  278. } if
  279. languagelevel 1 eq {
  280. /InstallColorSetTransfers {
  281. CurrColorSet /Num get dup 1 eq { 
  282. /OldGrayTransfer currenttransfer store
  283. {0 LookupComponent OldGrayTransfer} settransfer
  284. pop 
  285. } { 
  286. 3 eq { 
  287. currentcolortransfer
  288. /OldGrayTransfer exch store
  289. /OldBlueTransfer exch store
  290. /OldGreenTransfer exch store
  291. /OldRedTransfer exch store
  292. {0 LookupComponent OldRedTransfer}
  293. {1 LookupComponent OldGreenTransfer}
  294. {2 LookupComponent OldBlueTransfer}
  295. {OldGrayTransfer}
  296. setcolortransfer
  297. } { 
  298. currentcolortransfer
  299. /OldBlackTransfer exch store
  300. /OldYellowTransfer exch store
  301. /OldMagentaTransfer exch store
  302. /OldCyanTransfer exch store
  303. {1 exch sub 0 LookupComponent 1 exch sub OldCyanTransfer}
  304. {1 exch sub 1 LookupComponent 1 exch sub OldMagentaTransfer}
  305. {1 exch sub 2 LookupComponent 1 exch sub OldYellowTransfer}
  306. {1 exch sub 3 LookupComponent 1 exch sub OldBlackTransfer}
  307. setcolortransfer
  308. } ifelse
  309. } ifelse
  310. } Bdef
  311. } if
  312. /DrawIndexedBitmapStrings {
  313. F 0 DoIndexedBitmap 
  314. } Bdef
  315. /Do1bitBitmap {
  316. dup type /arraytype eq 
  317. CurrOrMode 0 ne or { 
  318. DoImageMask
  319. } { 
  320. 1 
  321. 5 1 roll    
  322. DoIndexedBitmap
  323. } ifelse
  324. } Bdef
  325. languagelevel 2 ge {
  326. /DoLevel2ColorImage {
  327. 9 dict begin
  328. /ImageType 1 def
  329. {
  330. /DataSource currentfile /ASCIIHexDecode filter def
  331. } {
  332. /DataSource currentfile def
  333. } ifelse
  334. neg exch neg exch matrix translate /ImageMatrix Xdef
  335. /BitsPerComponent Xdef
  336. /Height Xdef
  337. /Width Xdef
  338. /Decode [0 65535 0 65535 0 65535] def 
  339. currentdict 
  340. end
  341. image 
  342. } Bdef
  343. /DoLevel2ColorImageString {
  344. 9 dict begin
  345. /ImageType 1 def
  346. /DataSource /StringDataIn load def    
  347. neg exch neg exch matrix translate /ImageMatrix Xdef
  348. /BitsPerComponent Xdef
  349. /Height Xdef
  350. /Width Xdef
  351. /Decode [0 65535 0 65535 0 65535] def 
  352. BitmapStrings 0    
  353. currentdict 
  354. end
  355. image 
  356. pop pop 
  357. } Bdef
  358. } if 
  359.